
# seek.fig-- insert matching lines
# Copyright (C) 2021 mn
#
# This program is free software: you can redistribute it and/or modify 
#
# it under the terms of the GNU Affero General Public License as published by 
# the Free Software Foundation, either version 3 of the License, or 
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful, 
# but WITHOUT ANY WARRANTY; without even the implied warranty of 
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 
# GNU Affero General Public License for more details.
#
# You should have received a copy of the GNU Affero General Public License 
# along with this program. If not, see <http://www.gnu.org/licenses/>.

function vget g k
python
    return g[k]
    fig
    fig

function vset g k v
python
    g[k] = v
    return g
    fig
    fig

function seek buf params
    glen    vget params "g" ltrim     len
    tlen    ".seek"    len  times -1  plus glen   minus 1
    gt      vget params "g" ltrim     right tlen  split gt "|"
    pad arr mid 1 0
    forin each buf
        forin finds gt  
            found instr each finds  
            iftrue found
                pad plus each
                break
                fig
            next
        next
    iftrue pad
        now vset params "pad" pad
        params now return params
        fig
    fig

